Top 10k strings from File Card (19xx)(Daniel Sailer).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 ;''"NO.-";E;
   2 ;"HARD COPY?  (Y/N)";B$
   2 ;"                                ";
   1 input files
   1 filecard  -
   1 PER LINE":
   1 N$="NAME-  ":
   1 MAX. 8 LINES PER CARDG
   1 LOAD DATA A$
   1 L$="MAX. 15 
   1 H$="DETAILS-":
   1 G$="ENTRY NO."
   1 FILECARD NO. N
   1 F$="FILECARD NO. ":
   1 E$="MAX. 8 LINES PER CARD":
   1 D$=A$(B,J):
   1 ALTER FILE
   1 A$(E,J)="QUIT           "
   1 A$(E,J)="               ":
   1 A$(C,J)=D$:
   1 A$(B,J)=A$(C,J):
   1 ;A$(E,J)(1
   1 ;"by Daniel Sailer";
   1 ;"STAND BY- SORTING"
   1 ;"SAVING DATA A$":
   1 ;"SAVE COMPLETE":
   1 ;"QUIT WITH ""QUIT"""
   1 ;"PROGRAM-NAME ? (NAME/N) ";B$:
   1 ;"PROGRAM-NAME ? ";B$
   1 ;"PRESS""P"" KEY TO HOLD LIST       PRESS ANY KEY TO CONTINUE LIST  NO HOLD WHEN PRINTER IS USED"
   1 ;"PRESS ANY KEY TO CONTIUE"
   1 ;"PRESS ""P"" TO SCAN PREVIOUS FILE PRESS ""Q""TO RETURN TO MENU      PRESS ANY OTHER KEY TO CONTINUE"
   1 ;"PRESS ""A"" TO SELECT INCORRECT ENTY WITH << CURSOR"'"PRESS ""P"" WHEN SELECTED";
   1 ;"OPTIONS";
   1 ;"NO MORE FILES":
   1 ;"LOADING DATA A$":
   1 ;"LIST COMPLETE":
   1 ;"LIST COMPLETE"
   1 ;"IS THIS FILE CORRECT?  (Y/N)    ";B$
   1 ;"INPUT CORRECT ENTRY             ";A$(F,J)
   1 ;"HARD COPY? (Y/N)";B$:
   1 ;"FILECARD";
   1 ;"FILECARD ENTRY"
   1 ;"FILE SEARCH COMPLETE":
   1 ;"FILE FOUND":
   1 ;"ENTER Y / N";B$:
   1 ;"ENTER FILE TO BE SEARCHED FOR":
   1 ;"ENTER FILE NUMBER TO BE CHANGED ";F:
   1 ;"DO YOU WISH TO STOP THE PROGRAM?":
   1 ;"ALTER ANOTHER FILE? (Y/N)";B$
   1 ;"AGAIN ? (Y/N) ";B$:
   1 ;"9 - ALTER FILECARDS"
   1 ;"8 - SCAN FILECARDS";
   1 ;"7 - LIST FILECARDS";
   1 ;"6 - LIST FILE NAMES";
   1 ;"5 - LOAD FILECARDS";
   1 ;"4 - SAVE FILECARDS";
   1 ;"3 - SEARCH A FILECARD";
   1 ;"2 - ADD A FILECARD";
   1 ;"1 - TERMINATE";
   1 ;"*012345678901234*",A$(E,J,1
   1 ;" SORTING COMPLETE ":
   1 ;"               ":
   1 ;"                                "
   1 )="               "
   1 "LIST COMPLETE"